Три группы студентов, в каждой из которых 20 человек в сессию сдавали по 3 экзамена. Определить лучшую по среднему баллу группу — Pascal(Паскаль)

var
k,sum1,sum2,sum3,ocenka,i,j:integer;
srball1,srball2,srball3:real;
a:array[1..100] of integer;
begin
for k:=1 to 3 do begin
for i:=1 to 20 do begin
for j:=1 to 3 do begin
readln(ocenka);
if k=1 then
sum1:=sum1+ocenka;
if k=2 then
sum2:=sum2+ocenka;
if k=3 then sum3:=sum3+ocenka;
end;
end;
end;
srball1:=sum1/20;
srball2:=sum2/20;
srball3:=sum3/20;
if srball1>srball2 then if srball1>srball3 then writeln('luchaya gryppa=',1);
if srball2>srball1 then if srball2>srball3 then writeln('luchaya gryppa=',2);
if srball3>srball1 then if srball3>srball2 then writeln('luchaya gryppa=',3);
end.